home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / prog / proxy14.arj / PRIMES.PRX < prev    next >
Text File  |  1991-10-06  |  129b  |  7 lines
  1.  
  2. // primes: integer -> seq(integer)
  3.  
  4. primes(max) {return [n:n<-[2..max];
  5.          !(exists m in {2..n-1};(n % m)==0)];};
  6. end
  7.